1 HOME:D=4:VTAB11:HTAB:PRINT"FROG":FORA=770TO792:READB:POKEA,B:NEXT:DATA173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96,0,0
2 FORC=75TO70STEP-0.8:POKE768,C:POKE769,D:CALL770:NEXTC:FORC=69TO65STEP-0.5:POKE768,C:POKE769,4:CALL770:NEXT:FORX=1TOINT(RND(1)*800):NEXTX:GOTO2